home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / phagexsources.lha / source / TrackerRunner.s < prev    next >
Text File  |  1994-07-09  |  7KB  |  362 lines
  1. ; Hard-Trackdisk Example Routine - Loads sectors 880 to 883 off drive 0
  2. ; into $c0000 with an MFM buffer at $f0000
  3. ; 
  4. ; No interrupts/exceptions are interfered with, and code is fully multi-
  5. ; taskable (within a Hardware or System based program)
  6. ;
  7. ; This is not an interupt-driven routine. nor will it ever be, i couldn't
  8. ; be fucked to do it...  but wait n'see,  i may have something sticky up
  9. ; my sleeve.
  10. ;
  11. ; Coded by psyKo, extreme hassle and lots of time have gone into this fucker
  12. ; so i hope you spread 4 all 2 c..          (retro corp production, 19/5/93)
  13.  
  14. ; Note:  This is the new-improved meatier/chunkier version..
  15. ; New control codes for the NuTrakker Segment are:
  16.  
  17. ; d0 = 0   -   Find available drives
  18. ; d0 = 1   -   (new function)  Reset drive (d1=drive) head to track zero
  19. ; d0 = 2   -   Read Sectors
  20.  
  21. ; The Zero Head function you should use before you load a set of sectors,
  22. ; NOTE:  you dont have to do it every time you access the disk, just use
  23. ; it in initialization, and after a disk-change, or before a mass-multiple
  24. ; sector read (several Trakker Read Calls)...  i hope it worx
  25.  
  26.     Opt    c-
  27.     Section    "HardNuTrackDisk Example",Code_c
  28.  
  29.     IncDir    TransorbSource:
  30.  
  31. Drive    = 1
  32.  
  33. Start    Movem.l    d0-d7/a0-a6,-(sp) 
  34.     Bsr    KillSys      
  35.     
  36.     Lea    CopperList(pc),a0 
  37.     Lea    HardWare,a6      
  38.     Move.l    a0,Cop1Lc(a6)      
  39.     Move.w    #$83c0,DMACon(a6)
  40.  
  41. *****************************************************************************
  42.  
  43.     Moveq    #0,d0    ; Setup Code
  44.     Bsr    TrackDisk+$20    ; Find Active Drives    
  45.  
  46. ; d0 - is returned with active disk drives, bits 0-3 represent drives 0-3
  47.  
  48. *****************************************************************************
  49.  
  50.     Moveq    #1,d0    ; Zero Head Code
  51.     Moveq    #0,d1    ; Zero drive number
  52.     Bsr    TrackDisk+$20    ; Reset Track.
  53.  
  54.     Moveq    #1,d0    ; Zero Head Code
  55.     Moveq    #1,d1    ; Zero drive number
  56.     Bsr    TrackDisk+$20    ; Reset Track.
  57.     
  58.     Moveq    #2,d0    ; Read Sector Code
  59.     Moveq    #0,d1    ; Drive Number
  60.     Move.w    #880,d2    ; Start Sector 880
  61.     Move.w    #883,d3    ; End Sector 883
  62.     Lea    $c0000,a0    ; Data Address
  63.     Lea    $f0000,a1    ; MFM Buffer pointer
  64.     Bsr    TrackDisk+$20    ; Read Sectors
  65.  
  66.     Moveq    #2,d0    ; Read Sector Code
  67.     Moveq    #1,d1    ; Drive Number
  68.     Move.w    #400,d2    ; Start Sector 0
  69.     Move.w    #433,d3    ; End Sector 3
  70.     Lea    $c8000,a0    ; Data Address
  71.     Lea    $f0000,a1    ; MFM Buffer pointer
  72.     Bsr    TrackDisk+$20    ; Read Sectors
  73.  
  74.     Moveq    #2,d0    ; Read Sector Code
  75.     Moveq    #1,d1    ; Drive Number
  76.     Move.w    #1740,d2    ; Start Sector 0
  77.     Move.w    #1759,d3    ; End Sector 3
  78.     Lea    $d0000,a0    ; Data Address
  79.     Lea    $f0000,a1    ; MFM Buffer pointer
  80.     Bsr    TrackDisk+$20    ; Read Sectors
  81.  
  82.     Moveq    #2,d0    ; Read Sector Code
  83.     Moveq    #0,d1    ; Drive Number
  84.     Move.w    #1740,d2    ; Start Sector 0
  85.     Move.w    #1759,d3    ; End Sector 3
  86.     Lea    $d0000,a0    ; Data Address
  87.     Lea    $f0000,a1    ; MFM Buffer pointer
  88.     Bsr    TrackDisk+$20    ; Read Sectors
  89.  
  90. ; read those fucking sectors in from 880 to 883 off drive 1, fucking less
  91. ; hassle than fucking trackdisk.device, and no fucking Amiga fucking DOS
  92. ; to share your disgusting fucking memory fucking with...
  93.  
  94. *****************************************************************************
  95.  
  96. ; pleese, just dont ask why i'm fucking pissed off..
  97.  
  98.     Bsr    ReturnSys      
  99.     Movem.l    (sp)+,d0-d7/a0-a6 
  100.     Moveq    #0,d0      
  101.     Rts
  102.  
  103. KillSys    Bsr.s    SysWait    
  104.  
  105.     Move.l    $4,a6    
  106.     Lea    GFXName(pc),a1    
  107.     Moveq    #0,d0    
  108.     Jsr    -552(a6)    
  109.         
  110.     Lea    OldCop1(pc),a5
  111.     Move.l    $26(a0),$0(a5)    
  112.     Move.l    $32(a0),$4(a5)    
  113.     
  114.     Lea    HardWare,a6
  115.     Move.w    IntEnaR(a6),d0    
  116.     Move.w    DMAConR(a6),d1  
  117.     Or.w    #$8000,d0    
  118.     And.w    #$03ff,d1    
  119.     Or.w    #$8000,d1    
  120.     Move.w    d0,$8(a5)    
  121.     Move.w    d1,$a(a5)    
  122.     
  123.     Move.w    #$7fff,IntEna(a6) 
  124.     Move.w    #$7fff,DMACon(a6) 
  125.     Rts
  126.  
  127. SysWait    Move.w    #15,d7    
  128. SysWaitLoop    Move.l    #$05000,d1    
  129.     Bsr.s    WaitVBL    
  130.     Bsr.s    DoWaitVBL    
  131.     Dbf    d7,SysWaitLoop    
  132.     Rts
  133.  
  134. DoWaitVBL    Move.l    #$03000,d1    
  135. WaitVBL    Movem.l    d0-d1/a6,-(sp)    
  136.     Lea    HardWare,a6    
  137. WaitVBLLoop    Move.l    VPosR(a6),d0    
  138.     And.l    #$1ff00,d0    
  139.     Cmp.l    d1,d0    
  140.     Bne.s    WaitVBLLoop    
  141.     Movem.l    (sp)+,d0-d1/a6    
  142.     Rts        
  143.  
  144. ReturnSys    Lea    HardWare,a6    
  145.     Move.w    OldIntEna(pc),IntEna(a6)
  146.     Move.w    OldDMACon(pc),DMACon(a6)
  147.     Move.l    OldCop1(pc),Cop1lc(a6)
  148.     Move.l    OldCop2(pc),Cop2lc(a6)
  149.     Rts
  150.  
  151. GFXName    Dc.b    "graphics.library",0
  152.     Even
  153. OldCop1    Dc.l    0    
  154. OldCop2    Dc.l    0    
  155. OldIntEna    Dc.w    0    
  156. OldDmaCon    Dc.w    0    
  157. Screen    Dc.l    $c0000    
  158.  
  159. Cmv    Macro
  160.     Dc.w    \2,\1
  161.     EndM
  162.     
  163. Cwt    Macro
  164.     Dc.w    (\1*$100)+$01,$fffe
  165.     EndM    
  166.  
  167. Pal    Macro
  168.     Dc.w    $ffe1,$fffe
  169.     EndM    
  170.  
  171. EndCop    Macro
  172.     Dc.w    $ffff,$fffe
  173.     EndM    
  174.  
  175. CopperList    Cwt    $15    
  176.     Cmv    $0200,BplCon0    
  177.     Cmv    $00bb,BplCon1    
  178.     Cmv    $000a,BplCon2    
  179.     Cmv    $0034,DdfStrt    
  180.     Cmv    $00c8,DdfStop    
  181.     Cmv    $1681,DiwStrt    
  182.     Cmv    $36c1,DiwStop
  183.     Cmv    $0,BplMod1    
  184.     Cmv    $0,BplMod2    
  185.     
  186. CopperCols    Cwt    $25        
  187.     Cmv    $0,Color00
  188.     Cmv    $0,Color01
  189.     Cmv    $0,Color02
  190.     Cmv    $0,Color03
  191.     Cmv    $0,Color04
  192.     Cmv    $0,Color05
  193.     Cmv    $0,Color06
  194.     Cmv    $0,Color07
  195.     Cmv    $0,Color08
  196.     Cmv    $0,Color09
  197.     Cmv    $0,Color10
  198.     Cmv    $0,Color11
  199.     Cmv    $0,Color12
  200.     Cmv    $0,Color13
  201.     Cmv    $0,Color14
  202.     Cmv    $0,Color15
  203.     Cmv    $0,Color16
  204.     Cmv    $0,Color17
  205.     Cmv    $0,Color18
  206.     Cmv    $0,Color19
  207.     Cmv    $0,Color20
  208.     Cmv    $0,Color21
  209.     Cmv    $0,Color22
  210.     Cmv    $0,Color23
  211.     Cmv    $0,Color24
  212.     Cmv    $0,Color25
  213.     Cmv    $0,Color26
  214.     Cmv    $0,Color27
  215.     Cmv    $0,Color28
  216.     Cmv    $0,Color29
  217.     Cmv    $0,Color30
  218.     Cmv    $0,Color31
  219.     
  220. CopperBPLS    Cmv    $c,BplPt0h    
  221.     Cmv    $0,BplPt0l    
  222.     Cmv    $0,BplPt1h    
  223.     Cmv    $0,BplPt1l    
  224.     Cmv    $0,BplPt2h    
  225.     Cmv    $0,BplPt2l    
  226.     Cmv    $0,BplPt3h    
  227.     Cmv    $0,BplPt3l    
  228.     Cmv    $0,BplPt4h
  229.     Cmv    $0,BplPt4l 
  230.     
  231.     Cwt    $28    
  232.     Cmv    $1200,BplCon0    
  233.  
  234.     EndCop
  235.  
  236. TrackDisk    Incbin    df0:Blank:CodeSegments/NuTrakkerFINAL-Seg
  237.  
  238. ****Custom Chip Registers****
  239.  
  240. Hardware    = $Dff000
  241.  
  242. ;Control Registers
  243.  
  244. Dmaconr    = $002
  245. Vposr    = $004
  246. Vhposr    = $006
  247. Joy0dat    = $00A
  248. Joy1dat    = $00C
  249. Clxdat    = $00E
  250. Intenar    = $01C
  251. Intereqr    = $01E
  252. Copcon    = $02E
  253.  
  254. ;Blitter Registers
  255.  
  256. Bltcon0    = $040
  257. Bltcon1    = $042
  258. Bltafwm    = $044
  259. Bltalwm    = $046
  260. Bltcpth    = $048
  261. Bltcptl    = $04A
  262. Bltbpth    = $04C
  263. Bltbptl    = $04E
  264. Bltapth    = $050
  265. Bltaptl    = $052
  266. Bltdpth    = $054
  267. Bltdptl    = $056
  268. Bltsize    = $058
  269. Bltcmod    = $060
  270. Bltbmod    = $062
  271. Bltamod    = $064
  272. Bltdmod    = $066
  273. Bltcdat    = $070
  274. Bltbdat    = $072
  275. Bltadat    = $074
  276.  
  277. ;Copper Registers
  278.  
  279. Cop1lc    = $080
  280. Cop1lch    = $080
  281. Cop1lcl    = $082
  282. Cop2lc    = $084
  283. Cop2lch    = $084
  284. Cop2lcl    = $086
  285. Copjmp1    = $088
  286. Copjmp2    = $08A
  287. Diwstrt    = $08E
  288. Diwstop    = $090
  289. Ddfstrt    = $092
  290. Ddfstop    = $094
  291. Dmacon    = $096
  292. Clxcon    = $098
  293. Intena    = $09A
  294. Intreq    = $09C
  295.  
  296. ;BitPlane Registers 
  297.  
  298. BplCon0    = $100
  299. BplCon1    = $102
  300. BplCon2    = $104
  301. BplMod1    = $108
  302. BplMod2    = $10a
  303.  
  304. BplPt0h    = $0e0
  305. BplPt0l    = $0e2
  306. BplPt1h    = $0e4
  307. BplPt1l    = $0e6
  308. BplPt2h    = $0e8
  309. BplPt2l    = $0ea
  310. BplPt3h    = $0ec
  311. BplPt3l    = $0ee
  312. BplPt4h    = $0f0
  313. BplPt4l    = $0f2
  314. BplPt5h    = $0f4
  315. BplPt5l    = $0f6
  316.  
  317. ;Colour Registers
  318.  
  319. Color00    = $180
  320. Color01    = $182
  321. Color02    = $184
  322. Color03    = $186
  323. Color04    = $188
  324. Color05    = $18a
  325. Color06    = $18c
  326. Color07    = $18e
  327. Color08    = $190
  328. Color09    = $192
  329. Color10    = $194
  330. Color11    = $196
  331. Color12    = $198
  332. Color13     = $19a
  333. Color14     = $19c
  334. Color15     = $19e
  335. Color16     = $1a0
  336. Color17     = $1a2
  337. Color18     = $1a4
  338. Color19     = $1a6
  339. Color20     = $1a8
  340. Color21     = $1aa
  341. Color22     = $1ac
  342. Color23     = $1ae
  343. Color24     = $1b0
  344. Color25     = $1b2
  345. Color26     = $1b4
  346. Color27     = $1b6
  347. Color28     = $1b8
  348. Color29     = $1ba
  349. Color30     = $1bc
  350. Color31     = $1be
  351.  
  352. EcsNop    = $1fe
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.